home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib13.dsk / HPLOT ANIM LISTING 2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  562b  |  12 lines
  1. 90 SHAPE = 147:INCR = 4: HGR 
  2. 100  POKE 251,SHAPE: POKE 207,INCR: REM  SET SHAPE# AND INCREMENT
  3. 110  CALL 38095: REM  ERASE
  4. 120  IF  PEEK(37636) + PEEK(37637) *256 > = (279 -INCR)  THEN 180: REM  TEST RIGHT EDGE OF SCREEN
  5. 130  CALL 38167: REM  MOVE RIGHT 1 INCREMENT
  6. 140  CALL 38102: REM  DRAW
  7. 150  GOTO 110: REM  KEEP MOVING RIGHT
  8. 160  CALL 38095: REM  ERASE
  9. 170  IF  PEEK(37633) + PEEK(37634) *256 < = (0 +INCR)  THEN 130: REM  TEST LEFT EDGE OF SCREEN
  10. 180  CALL 38196: REM  MOVE LEFT 1 INCREMENT
  11. 190  CALL 38102: REM  DRAW
  12. 200  GOTO 160: REM  KEEP MOVING LEFT